-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2577
-- card count: 2
-- first card id: 4254
-- list block id: 3706
-- print block id: 4449
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 20352 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
-- Disk-It by Brian Cherkas
-- May 1988

on openStack
  hide msg
  send mouseUp to bkgnd button "Flash"
end openStack


on TableOfContents
  push card
  set lockscreen to true
  set cursor to 4
  --put empty into card field "container"
  go next card
  repeat for the number of cards
    put line 1 of bkgnd field "Volume" & "," after temp
    go next card
  end repeat
  pop card
  set lockscreen to false
  set cursor to 1
  put temp into thelist
  DoList "Select","Cancel",theList,one
  get the result
  set lockscreen to true
  go next card
  if it = "" then go prev card
  go to card it of bkgnd "Catalog"
  set lockscreen to false
end TableOfContents



on SortCards
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "First Name"
  then sort by first word of first line of field "Volume"
else if it is "Last Name"
then sort by last word of first line of field "Volume"
end SortCards

on MakeCard
  set lockscreen to true
  go to last card
  doMenu New Card
  set lockscreen to false
  type tab
end MakeCard

on Install
  beep 1
  answer "Install Disk Library button on Home card?" with "OK" or "Cancel"
  if it is "Cancel" then
    exit Install
  end if
  put "Installing on home card - Please wait..."
  choose button tool
  set cursor to 4
  set lockmessages to true
  set lockscreen to true
  doMenu "New Button"
  set the name of button "New Button" to "Disk Library"
  set icon of button "Disk Library" to 454
  set style of button "Disk Library" to transparent
  set the rect of card button "Disk Library" to 37,65,105,124
  set autohilite of button "Disk Library" to true
  set script of button "Disk Library" to empty
  set script of button "Disk Library" to "on mouseUp" && return && "go to stack Disk Library" && return && "end mouseUp"
  doMenu "Cut Button"
  set lockscreen to false
  push card
  go home
  set cursor to 3
  put "Please click where you want the button placed."
  repeat while the mouseClick is false
  end repeat
  put "Thank you. Please wait..."
  set cursor to 4
  put the mouseLoc into placeHere
  doMenu "Paste Button"
  set loc of button "Disk Library" to placeHere
  pop card
  set lockmessages to false
  hide msg
  choose browse tool
end Install

on compress
  put "Now compacting stack..."
  doMenu "Compact Stack"
  hide message
end compress

on closeStack
  put size of stack "Disk-It" into stacksize
  put freesize of stack "Disk-It" into freespace
  if freespace > .2 * stacksize then doMenu "Compact Stack"
end closeStack